home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / online / motor.EXE / SI.PAS < prev    next >
Pascal/Delphi Source File  |  1991-10-05  |  937b  |  32 lines
  1. begin
  2. write('ѥ');
  3. end.
  4. :text;
  5. a1,a2,a3,s,s1,s2,s3,s4,s5,s6:string;
  6. x1,x2,x3,i :integer;
  7. y1,y2,y3   :real;
  8.            begin
  9.            assign(f1,'dosya.dat');reset(f1);readln(f1,a1);
  10.            assign(f2,'sira.dat');rewrite(f2);
  11.            assign(f3,a1+'c.dxf');reset(f3);
  12.            while not eof(f3) do
  13.                  begin;
  14.                  readln(f3,a2);
  15.                  if (a3 = 'text') then
  16.                  readln(f3,s);readln(f3,s);readln(f3,s);
  17.                  readln(f3,s1);
  18.                  readln(f3,s);
  19.                  readln(f3,s2);
  20.                  readln(f3,s);readln(f3,s);
  21.                  readln(f3,s);
  22.                  readln(f3,s3);
  23. uses crt;
  24. var
  25. f1,f2,f3   :text;
  26. a1,a2,a3,s,s1,s2,s3,s4,s5,s6:string;
  27. x1,x2,x3,i :integer;
  28. y1,y2,y3   :real;
  29.            begin
  30.            assign(f1,'dosya.dat');reset(f1);readln(f1,a1);
  31.            assign(f2,'sira.dat');rewrite(f2);
  32.            assign